﻿Public Class StoreToolTipCtrl


    Private _Control As System.Windows.Forms.IWin32Window
    Public Property Control() As System.Windows.Forms.IWin32Window
        Get
            Return _Control
        End Get
        Set(ByVal value As System.Windows.Forms.IWin32Window)
            _Control = value
        End Set
    End Property



    Private _Text As String
    Public Property Text() As String
        Get
            Return _Text
        End Get
        Set(ByVal value As String)
            _Text = value
        End Set
    End Property



    Private _Title As String
    Public Property Title() As String
        Get
            Return _Title
        End Get
        Set(ByVal value As String)
            _Title = value
        End Set
    End Property


    Sub Show(ByVal delay As Integer, ByVal icon As ToolTipIcon)

        ToolTip1.ToolTipTitle = Title

        ToolTip1.ToolTipIcon = icon
        ToolTip1.Show(_Text, _Control)
        'there needs to be 2!!
        ToolTip1.Show(_Text, _Control, delay)

    End Sub

End Class
